home *** CD-ROM | disk | FTP | other *** search
/ Oh!X 2001 Spring / Oh!X 2001 Spring Special CD-ROM (Japan) (Track 1).bin / CGI / list2.cgi < prev    next >
Encoding:
Text File  |  2000-10-28  |  965 b   |  41 lines
  1. #!/usr/local/bin/perl
  2.  
  3. #REFERER Log Viewer
  4. #    by de 2000
  5.  
  6. require "cgi-lib.pl";
  7. require "jcode.pl";
  8.  
  9. &ReadParse(*input);
  10.  
  11. @val = split(/&/,$input);
  12.  
  13. foreach $i(0 .. $#val){
  14.     $val[$i] =~ s/%(..)/pack("c",hex($1))/ge;
  15.     ($name,$value) = split(/=/,$val[$i],2);
  16.     $value =~ s/\+/ /g;
  17.     $val{$name} = $value;
  18. }
  19.  
  20. print &PrintHeader;
  21.  
  22. print "<HTML><HEAD><TITLE>ログビューア</TITLE>\n";
  23. print "<META HTTP-EQUIV=\"content-type\" CONTENT=\"text/html;charset=x-euc-jp\">\n";
  24. print "<LINK REL=stylesheet TYPE=\"text/css\" HREF=\"pcbrowser.css\">\n";
  25. print "<BODY BGCOLOR=\"#fdfad2\">\n";
  26. print "<H1>リンク探知・ログビューアー<BR></H1><H2>[呼び出し元・最新20]<BR></H2><P>\n";
  27.  
  28. open(SRC,"refererlog.dat");
  29. while(<SRC>){
  30.     chop;
  31.     print "<A HREF=\"";
  32.     print "$_";
  33.     print "\">";
  34.     print "$_";
  35.     print "</A><BR>\n";
  36. }
  37. print "</P><HR>\n";
  38. print "<DIV ALIGN=CENTER><A HREF=\"index.html\">トップページへ</A><BR></DIV>\n";
  39.  
  40. print "<HR></BODY></HTML>\n";
  41.